home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / HyperCard Demos / HyperMovies / CL⁄1 / CL_1 / card_5615.txt < prev    next >
Text File  |  1989-10-27  |  8KB  |  364 lines
  1. -- card: 5615 from stack: in
  2. -- bmap block id: 10968
  3. -- flags: 4000
  4. -- background id: 6049
  5. -- name: Connect Setup
  6. ----- HyperTalk script -----
  7. on openCard
  8.   push recent card
  9.   hide menubar
  10.   global connectMode
  11.   if connectMode is empty then put "Simulation" into connectMode
  12.  
  13.   repeat 5 times
  14.     get the highlight of card btn connectMode
  15.     set the highlight of card btn connectMode to not it
  16.     wait 5
  17.   end repeat
  18.   click at the loc of card btn connectMode
  19.   pass openCard
  20. end openCard
  21.  
  22. --on closeCard
  23. global connectMode,myHostName,myUserName,myPassword
  24. put "Simulation" into connectMode --only support simulation for now
  25. put card field "myHostName" into myHostName
  26. put card field "myUserName" into myUserName
  27. put card field "myPassword" into myPassword
  28. pass closeCard
  29. end closeCard
  30.  
  31. on changeConnectMode
  32.   get (highlight of the target) and false
  33.   set highlight of card btn "Simulation" to it
  34.   set highlight of card btn "Direct" to it
  35.   set highlight of card btn "Modem" to it
  36.   set highlight of card btn "AppleTalk" to it
  37.   set highlight of card btn "DECnet" to it
  38.   set highlight of the target to not it
  39.  
  40.   global connectMode
  41.   put the short name of the target into connectMode
  42. end changeConnectMode
  43.  
  44.  
  45. -- part 3 (field)
  46. -- low flags: 01
  47. -- high flags: 2004
  48. -- rect: left=170 top=85 right=321 bottom=487
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 20
  53. -- text size: 18
  54. -- style flags: 0
  55. -- line height: 20
  56. -- part name: 
  57.  
  58.  
  59. -- part 18 (field)
  60. -- low flags: 01
  61. -- high flags: 0000
  62. -- rect: left=306 top=110 right=223 bottom=458
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 20
  67. -- text size: 18
  68. -- style flags: 0
  69. -- line height: 20
  70. -- part name: mode types
  71.  
  72.  
  73. -- part 4 (field)
  74. -- low flags: 01
  75. -- high flags: 0000
  76. -- rect: left=182 top=109 right=293 bottom=279
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 65535
  80. -- font id: 20
  81. -- text size: 18
  82. -- style flags: 0
  83. -- line height: 20
  84. -- part name: Headings
  85.  
  86.  
  87. -- part 5 (field)
  88. -- low flags: 03
  89. -- high flags: 4000
  90. -- rect: left=288 top=229 right=250 bottom=460
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 20
  95. -- text size: 18
  96. -- style flags: 0
  97. -- line height: 20
  98. -- part name: myHostName
  99.  
  100.  
  101. -- part 8 (field)
  102. -- low flags: 03
  103. -- high flags: 4000
  104. -- rect: left=288 top=249 right=270 bottom=460
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 20
  109. -- text size: 18
  110. -- style flags: 0
  111. -- line height: 20
  112. -- part name: myUserName
  113.  
  114.  
  115. -- part 9 (field)
  116. -- low flags: 03
  117. -- high flags: 4000
  118. -- rect: left=288 top=269 right=290 bottom=460
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 0
  122. -- font id: 20
  123. -- text size: 18
  124. -- style flags: 0
  125. -- line height: 20
  126. -- part name: myPassword
  127.  
  128.  
  129. -- part 13 (button)
  130. -- low flags: 00
  131. -- high flags: 0006
  132. -- rect: left=288 top=151 right=172 bottom=374
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Modem
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   ChangeConnectMode
  144.  
  145.   get word 1 of card field "baud rate"
  146.   if it is empty then
  147.     put "1200 baud" into card field "baud rate"
  148.     get 1200
  149.   end if
  150.   put "nivax" & it into card field "myHostName"
  151.   put empty into card field "myUserName"
  152.   put empty into card field "myPassword"
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 14 (button)
  158. -- low flags: 00
  159. -- high flags: 0006
  160. -- rect: left=288 top=171 right=192 bottom=396
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: AppleTalk
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   get the short name of the target
  172.   answer it && "is not currently supported."
  173.   --ChangeConnectMode
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 15 (button)
  179. -- low flags: 00
  180. -- high flags: 0006
  181. -- rect: left=288 top=191 right=212 bottom=381
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: DECnet
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   get the short name of the target
  193.   answer it && "is not currently supported."
  194.   --ChangeConnectMode
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 16 (button)
  200. -- low flags: 00
  201. -- high flags: 0006
  202. -- rect: left=288 top=131 right=152 bottom=364
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: Direct
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   ChangeConnectMode
  214.  
  215.   put "nivax" into card field "myHostName"
  216.   put empty into card field "myUserName"
  217.   put empty into card field "myPassword"
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 17 (button)
  223. -- low flags: 00
  224. -- high flags: 4006
  225. -- rect: left=288 top=111 right=132 bottom=400
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Simulation
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   ChangeConnectMode
  237.  
  238.   put "My Host Name" into card field "myHostName"
  239.   put "My Name" into card field "myUserName"
  240.   put "My Password" into card field "myPassword"
  241.  
  242.   if the commandKey is down then
  243.     --go to the data cards for the simulation
  244.     visual zoom open to gray
  245.     visual zoom open
  246.     go card 1 of background "Simulation Host"
  247.   end if
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 20 (field)
  253. -- low flags: 80
  254. -- high flags: 0007
  255. -- rect: left=27 top=109 right=234 bottom=161
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 65535
  259. -- font id: 3
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: help
  264.  
  265.  
  266. -- part 21 (field)
  267. -- low flags: 01
  268. -- high flags: 0004
  269. -- rect: left=380 top=150 right=170 bottom=468
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 0
  273. -- font id: 20
  274. -- text size: 18
  275. -- style flags: 0
  276. -- line height: 18
  277. -- part name: baud rate
  278. ----- HyperTalk script -----
  279. on mouseDown
  280.   put "300 baud,1200 baud,2400 baud,9600 baud" into baudRateList
  281.   get itemOffset(card field "baud rate",baudRateList)
  282.   put item 1 of rect of card field "baud rate" into h
  283.   put item 2 of rect of card field "baud rate" into v
  284.   put item 1 of loc of card window into dh
  285.   put item 2 of loc of card window into dv
  286.  
  287.   get PopupMenu(baudRateList, it, v+1+dv, h+dh+1)
  288.   if it <> 0 then
  289.     put item it of baudRateList into card field "baud rate"
  290.     send mouseUp to card btn "Modem"
  291.   end if
  292. end mouseDown
  293.  
  294.  
  295.  
  296. -- part 25 (button)
  297. -- low flags: 00
  298. -- high flags: 0000
  299. -- rect: left=410 top=32 right=80 bottom=480
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: go map
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   put false into QuotaHasChanged
  311.   if not inDebug() then
  312.     hide menuBar
  313.     hide message box
  314.     hide tool window
  315.     hide pattern window
  316.     set cursor to 4
  317.     lock screen
  318.     go to card "Map of Regions"
  319.     send "EraseMap" to bkgnd "Map"
  320.     unlock screen with visual dissolve
  321.     send "RetrieveAllData" to bkgnd "Map"
  322.   else
  323.     visual dissolve
  324.     go to card "Map of Regions"
  325.   end if
  326. end mouseUp
  327.  
  328.  
  329.  
  330. -- part contents for card part 4
  331. ----- text -----
  332. Connection
  333. Mode
  334.  
  335.  
  336.  
  337.  
  338. Host Name
  339. User Name
  340. Password
  341.  
  342. -- part contents for card part 5
  343. ----- text -----
  344. My Host Name
  345.  
  346. -- part contents for card part 18
  347. ----- text -----
  348. Simulation
  349. Direct
  350. Modem
  351. AppleTalk
  352. DecNET
  353.  
  354. -- part contents for card part 21
  355. ----- text -----
  356. 9600 baud
  357.  
  358. -- part contents for card part 8
  359. ----- text -----
  360. My Name
  361.  
  362. -- part contents for card part 9
  363. ----- text -----
  364. My Password